Set TypeLib = CreateObject("Scriptlet.TypeLib")

guidStr = TypeLib.Guid

myGuid = Left(guidStr, Len(guidStr)-3)
myGuid = right(myGuid, len(myGuid) -1) 

Wscript.Echo myGuid